home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tm.d64 / print instruct.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  700b  |  23 lines
  1. 5 REM ADDRESS BOOK DOCUMENTATION PRINTER * FRANK VAN DEVENTER
  2. 10 R$=CHR$(13):PRINTCHR$(14)"[147]   [212]HIS PROGRAM WILL PRINT OUT A PAGE
  3. 15 [153]"OF DOCUMENTATION FOR THE ATNDDRESS PEEKOOK
  4. 20 PRINT"PROGRAM.  [194]E SURE THAT THE PRINTER IS
  5. 25 [153]"ON LINE BEFORE PROCEEDING.  (null)OU ALSO
  6. 30 PRINT"HAVE THE OPTION OF PRINTING THE
  7. 35 [153]"MATERIAL TO THE SCREEN.
  8. 60 PRINT"   [208]RESS [208] TO ROUTE TO THE [208]RINTER.
  9. 65 [153]"   LEFT$OLD DOWN (null)PACE PEEKAR TO PRINT":[153]"   TO THE SCREEN.
  10. 70 GETA$:IFA$<>""THEN70
  11. 75 GETA$
  12. 80 IFA$=" "THENOPEN1,3:GOTO120
  13. 85 IFA$<>"P"THENGOTO75
  14. 110 OPEN1,4,7
  15. 120 OPEN2,8,8,"INSTRUCTS FILE"
  16. 130 GET#2,B$:SS=ST
  17. 135 IFA$=" "THENGETC$:IFC$<>" "THEN135
  18. 140 IFB$=R$THENIFA$=" "THENFORX=1TO11:GET#2,B$:NEXT:PRINT#1,A$;:IFB$=A$THENPRINT#1
  19. 150 PRINT#1,B$;:IFSS=0THEN130
  20. 160 PRINT#1:CLOSE1
  21. 170 CLOSE2
  22. 200 PRINT"[208]RINT OUT COMPLETED":END
  23.